perm filename DUMMY.LAP[4,LMM] blob sn#037491 filedate 1973-05-06 generic text, type T, neo UTF8
(DECIMAL) 

(LAP DUMMY SUBR) 
       (MOVEI 1. (QUOTE NIL)) 
       (POPJ P) 
       NIL 

(DECIMAL) 

(PRINT (LIST (ADD1 7.) (QUOTE =) 1. 0.))